home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n19.arc / FIELD_LE.PRG < prev    next >
Text File  |  1990-10-13  |  1KB  |  47 lines
  1.  
  2. * FIELD_LEN.PRG - MAX LENGTH OF CHARACTER VARIABLES - D. Chambless
  3. SET TALK OFF
  4. CLOSE DATABASES
  5. SELECT 1
  6. USE FAT_FILE
  7. COPY STRUCTURE EXTENDED TO TEMP
  8. SELECT 2
  9. USE TEMP
  10. SET FILTER TO FIELD_TYPE = 'C'
  11. GO TOP
  12. NO_CVAR = 0
  13. DO WHILE .NOT. EOF()
  14.    NO_CVAR = NO_CVAR + 1
  15.    NSTR = IIF(NO_CVAR < 10, STR(NO_CVAR,1), STR(NO_CVAR,2))
  16.    NAM_CVAR&NSTR = TRIM(FIELD_NAME)
  17.    LEN_CVAR&NSTR = 0
  18.    SKIP
  19. ENDDO VAR
  20. TOO_MANY = NO_CVAR
  21. SELECT 1
  22. GO TOP
  23. DO WHILE .NOT. EOF()
  24.    NO_CVAR = 0
  25.    DO WHILE NO_CVAR < TOO_MANY
  26.       NO_CVAR = NO_CVAR + 1
  27.       NSTR = IIF(NO_CVAR < 10, STR(NO_CVAR,1), STR(NO_CVAR,2))
  28.       FIELD = NAM_CVAR&NSTR
  29.       LEN_CVAR&NSTR = MAX(LEN_CVAR&NSTR, LEN(LTRIM(TRIM(&FIELD))))
  30.    ENDDO VAR
  31.    SKIP
  32. ENDDO EOF
  33. SET PRINT ON
  34. NO_CVAR = 0
  35. DO WHILE NO_CVAR < TOO_MANY
  36.    NO_CVAR = NO_CVAR + 1
  37.    NSTR = IIF(NO_CVAR < 10, STR(NO_CVAR,1), STR(NO_CVAR,2))
  38.    ? NAM_CVAR&NSTR, STR(LEN_CVAR&NSTR,5)
  39. ENDDO VAR
  40. SET PRINT OFF
  41. EJECT
  42. CLOSE DATABASES
  43. ERASE TEMP.DBF
  44. RETURN
  45.  
  46.  
  47.